../../mct/main/seq_frac_mct.F90